#!/usr/bin/perl 
$texte="";
while($a=<STDIN>) 
{
  if( $a =~/STOP/) # $a eq "STOP"
  {
        print $texte;
        exit;
    }
   else
  { 
        $texte.=$a;
    }
}